PROC rates:
rem ************************************
rem **   Written by Barry J. Glover   **
rem **   Compuserve ID. 100025,2016   **
rem ** Copyright Barry J. Glover 1994 **
rem ************************************

	global home$(12),hunit$(10),lang1$(12),rate1,unit1$(10),lang2$(12),rate2,unit2$(10),lang3$(12),rate3,unit3$(10),lang4$(12),rate4,unit4$(10),lang5$(12),rate5,unit5$(10),lang6$(12),rate6,unit6$(10),lang7$(12),rate7,unit7$(10),lang8$(12),rate8,unit8$(10)
	local k%,h$(10),a$(5)
	h$="curhtxa"
	if not exist("xchrates")
		create "xchrates",a,home$,hunit$,from%,lang1$,rate1,unit1$,lang2$,rate2,unit2$,lang3$,rate3,unit3$,lang4$,rate4,unit4$,lang5$,rate5,unit5$,lang6$,rate6,unit6$,lang7$,rate7,unit7$,lang8$,rate8,unit8$
		a.home$="Spare"
		a.hunit$="Spare"
		a.from%=1
		a.lang1$="Spare" :a.rate1=1 :a.unit1$="Spare"
		a.lang2$="Spare" :a.rate2=1 :a.unit2$="Spare"
		a.lang3$="Spare" :a.rate3=1 :a.unit3$="Spare"
		a.lang4$="Spare" :a.rate4=1 :a.unit4$="Spare"
		a.lang5$="Spare" :a.rate5=1 :a.unit5$="Spare"
		a.lang6$="Spare" :a.rate6=1 :a.unit6$="Spare"
		a.lang7$="Spare" :a.rate7=1 :a.unit7$="Spare"
		a.lang8$="Spare" :a.rate8=1 :a.unit8$="Spare"
		append
		close
	endif
	while 1
	lab1::
		rem get
rem 		if k%=$122 rem Menu Key
			minit
			mcard "Change","Country Name",%c,"Unit of Currency",%u,"Xchange Rate",%r,"Home Language",%h,"Home Unit of Currency",%t
			mcard "Exit","Exit",%x,"About",%a
			k%=menu
			if k% and (loc(h$,chr$(k%))<>0)
				a$="proc"+chr$(k%)
				@(a$):
			endif
		if k% and $200 rem hot key pressed directly
			k%=k%-$200 rem remove psion key code
			if loc(h$,chr$(k%))
				a$="proc"+chr$(k%)
				@(a$):
			endif
		else
			goto lab1::
		endif
	endwh
ENDP

proc procc:
rem Change COUNTRY NAME
	open "xchrates",a,home$,hunit$,from%,lang1$,rate1,unit1$,lang2$,rate2,unit2$,lang3$,rate3,unit3$,lang4$,rate4,unit4$,lang5$,rate5,unit5$,lang6$,rate6,unit6$,lang7$,rate7,unit7$,lang8$,rate8,unit8$
		lang1$=a.lang1$
		lang2$=a.lang2$
		lang3$=a.lang3$
		lang4$=a.lang4$
		lang5$=a.lang5$
		lang6$=a.lang6$
		lang7$=a.lang7$
		lang8$=a.lang8$
		dinit 
		dedit lang1$,"Change "+lang1$+" to ",12
		dedit lang2$,"Change "+lang2$+" to ",12
		dedit lang3$,"Change "+lang3$+" to ",12
		dedit lang4$,"Change "+lang4$+" to ",12
		dedit lang5$,"Change "+lang5$+" to ",12
		dedit lang6$,"Change "+lang6$+" to ",12
		dedit lang7$,"Change "+lang7$+" to ",12
		dedit lang8$,"Change "+lang8$+" to ",12
		dialog
		a.lang1$=lang1$
		a.lang2$=lang2$
		a.lang3$=lang3$
		a.lang4$=lang4$
		a.lang5$=lang5$
		a.lang6$=lang6$
		a.lang7$=lang7$
		a.lang8$=lang8$
		update
		close
endp

proc procu:
rem Change UNIT OF CURRENCY
	open "xchrates",a,home$,hunit$,from%,lang1$,rate1,unit1$,lang2$,rate2,unit2$,lang3$,rate3,unit3$,lang4$,rate4,unit4$,lang5$,rate5,unit5$,lang6$,rate6,unit6$,lang7$,rate7,unit7$,lang8$,rate8,unit8$
	lang1$=a.lang1$
	lang2$=a.lang2$
	lang3$=a.lang3$
	lang4$=a.lang4$
	lang5$=a.lang5$
	lang6$=a.lang6$
	lang7$=a.lang7$
	lang8$=a.lang8$
	
	unit1$=a.unit1$
	unit2$=a.unit2$
	unit3$=a.unit3$
	unit4$=a.unit4$
	unit5$=a.unit5$
	unit6$=a.unit6$
	unit7$=a.unit7$
	unit8$=a.unit8$
	
	dinit 
	dedit unit1$,"Change ("+lang1$+") "+unit1$+" To ",9
	dedit unit2$,"Change ("+lang2$+") "+unit2$+" To ",9
	dedit unit3$,"Change ("+lang3$+") "+unit3$+" To ",9
	dedit unit4$,"Change ("+lang4$+") "+unit4$+" To ",9
	dedit unit5$,"Change ("+lang5$+") "+unit5$+" To ",9
	dedit unit6$,"Change ("+lang6$+") "+unit6$+" To ",9
	dedit unit7$,"Change ("+lang7$+") "+unit7$+" To ",9
	dedit unit8$,"Change ("+lang8$+") "+unit8$+" To ",9
	
	dialog
	a.unit1$=unit1$
	a.unit2$=unit2$
	a.unit3$=unit3$
	a.unit4$=unit4$
	a.unit5$=unit5$
	a.unit6$=unit6$
	a.unit7$=unit7$
	a.unit8$=unit8$
	update
	close
endp

proc procr:
local rate1now,rate2now,rate3now,rate4now,rate5now,rate6now,rate7now,rate8now
rem Change EXCHANGE RATE
	open "xchrates",a,home$,hunit$,from%,lang1$,rate1,unit1$,lang2$,rate2,unit2$,lang3$,rate3,unit3$,lang4$,rate4,unit4$,lang5$,rate5,unit5$,lang6$,rate6,unit6$,lang7$,rate7,unit7$,lang8$,rate8,unit8$
	rate1=0:rate2=0:rate3=0:rate4=0:rate5=0:rate6=0:rate7=0:rate8=0
	lang1$=a.lang1$
	lang2$=a.lang2$
	lang3$=a.lang3$
	lang4$=a.lang4$
	lang5$=a.lang5$
	lang6$=a.lang6$
	lang7$=a.lang7$
	lang8$=a.lang8$
	
	rate1now=a.rate1
	rate2now=a.rate2
	rate3now=a.rate3
	rate4now=a.rate4
	rate5now=a.rate5
	rate6now=a.rate6
	rate7now=a.rate7
	rate8now=a.rate8
	dinit

	dfloat rate1,"Change ("+lang1$+") Rate NOW "+gen$(rate1now,10)+" To ",0,9999999
	dfloat rate2,"Change ("+lang2$+") Rate NOW "+gen$(rate2now,10)+" To ",0,9999999
	dfloat rate3,"Change ("+lang3$+") Rate NOW "+gen$(rate3now,10)+" To ",0,9999999
	dfloat rate4,"Change ("+lang4$+") Rate NOW "+gen$(rate4now,10)+" To ",0,9999999
	dfloat rate5,"Change ("+lang5$+") Rate NOW "+gen$(rate5now,10)+" To ",0,9999999
	dfloat rate6,"Change ("+lang6$+") Rate NOW "+gen$(rate6now,10)+" To ",0,9999999
	dfloat rate7,"Change ("+lang7$+") Rate NOW "+gen$(rate7now,10)+" To ",0,9999999
	dfloat rate8,"Change ("+lang8$+") Rate NOW "+gen$(rate8now,10)+" To ",0,9999999
		dialog
	if rate1>0
		a.rate1=rate1
	else
		a.rate1=rate1now
	endif
	if rate2>0
		a.rate2=rate2
	else
		a.rate2=rate2now
	endif
	if rate3>0
		a.rate3=rate3
	else
		a.rate3=rate3now
	endif
	if rate4>0
		a.rate4=rate4
	else
		a.rate4=rate4now
	endif
	if rate5>0
		a.rate5=rate5
	else
		a.rate5=rate5now
	endif
	if rate6>0
		a.rate6=rate6
	else
		a.rate6=rate6now
	endif
	if rate7>0
		a.rate7=rate7
	else
		a.rate7=rate7now
	endif
	if rate8>0
		a.rate8=rate8
	else
		a.rate8=rate8now
	endif
	update
	close
endp

proc proch:
		open "xchrates",a,home$,hunit$,from%,lang1$,rate1,unit1$,lang2$,rate2,unit2$,lang3$,rate3,unit3$,lang4$,rate4,unit4$,lang5$,rate5,unit5$,lang6$,rate6,unit6$,lang7$,rate7,unit7$,lang8$,rate8,unit8$
		home$=a.home$
		dinit 
		dedit home$,"Change "+home$+" to ",12
		dialog
		a.home$=home$
		update
		close
endp
	
proc proct:
		open "xchrates",a,home$,hunit$,from%,lang1$,rate1,unit1$,lang2$,rate2,unit2$,lang3$,rate3,unit3$,lang4$,rate4,unit4$,lang5$,rate5,unit5$,lang6$,rate6,unit6$,lang7$,rate7,unit7$,lang8$,rate8,unit8$
		hunit$=a.hunit$
		dinit 
		dedit hunit$,"Change "+hunit$+" to ",9
		dialog
		a.hunit$=hunit$
		update
		close
endp

proc procx:
	stop
endp

proc proca:
dinit
dtext "","Xchange Rate Converter",2
dtext "","Written by Barry J. Glover",2
dtext "","Copyright 1994",2
dialog
endp